home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)md.d64 / dealing cards.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  804b  |  26 lines
  1. 10 REM * * SOUND PROGRAM FOR * *
  2. 20 REM * * DEALING CARDS ONTO * *
  3. 30 REM * * A SOLID SURFACE * *
  4. 40 FORT=1TO800:NEXTT
  5. 50 V=54296:W=54276:A=54277
  6. 60 HF=54273:LF=54272
  7. 70 FORY=1TO7
  8. 80 POKEV,15:POKEW,129:POKEA,67
  9. 90 POKEHF,70:POKELF,125
  10. 100 FORX=1TO600:NEXTX
  11. 110 POKEHF,0:POKELF,0:POKEW,0
  12. 120 NEXTY
  13. 130 PRINT"[147]":POKE53280,11:POKE53281,11:PRINT"[155]"
  14. 140 PRINT"  IF YOU LIST THIS PROGRAM, YOU WILL":PRINT
  15. 150 PRINT"  SEE THAT THE SEVEN CARDS SOUND":PRINT
  16. 160 PRINT"  EFFECT COMES FROM LINES 70 AND 120.":PRINT
  17. 170 PRINT"  IN ACTUAL USE, REMOVE THESE TWO LINES,"
  18. 180 PRINT"  AND MAKE THIS SHORT PROGRAM A SUB-":PRINT
  19. 190 PRINT"  ROUTINE THAT YOU CALL UP AFTER EACH":PRINT
  20. 200 PRINT"  CARD IS PUT ON THE SCREEN.  THIS":PRINT
  21. 210 PRINT"  SOUND EFFECT ADDS REALISIM TO":PRINT
  22. 220 PRINT"  TO YOUR CARD GAME WHEN DEALING.":PRINT
  23. 230 PRINT"  ONLY LINES 50, 60, 80, 90, 100 AND":PRINT
  24. 240 PRINT"  110 ARE NEEDED FOR THE ROUTINE."
  25. 250 FORT=1TO8000:NEXTT
  26.